home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
zipfiles
/
p2z
/
segue.exe
/
BDSUP.PRG
< prev
next >
Wrap
Text File
|
1991-09-23
|
9KB
|
435 lines
*.............................................................................
* Program Name: bdsup.PRG Copyright: HRF Associates, Inc.
* Date Created: 06/10/91 Language: Clipper
* Time Created: 16:35:50 Author: Bob Fogle
*.............................................................................
mTIT = " SEGUE SUPPLEMENT, BINDERY DEMO "
@ 01,(79-len(mTIT))/2 SAY mTIT
bcnt=13
msup=1
PRIVATE mCHOICE, mPROC, mPROMPT[bcnt], mAPI[bcnt]
mPROMPT[1] = "Exit"
mAPI[1] = "Return to Menu"
mPROMPT[2] = "USRAD_"
mAPI[2] = "SSBD Add User"
mPROMPT[3] = "USRDL_"
mAPI[3] = "SSBD Delete User"
mPROMPT[4] = "USRSLST_"
mAPI[4] = "SSBD List Users"
mPROMPT[5] = "USRGRPLST_"
mAPI[5] = "SSBD List User's Groups"
mPROMPT[6] = "USRINGRP_"
mAPI[6] = "SSBD Is User In Group"
mPROMPT[7] = "GRPAD_"
mAPI[7] = "SSBD Add Group"
mPROMPT[8] = "GRPDL_"
mAPI[8] = "SSBD Delete Group"
mPROMPT[9] = "GRPSLST_"
mAPI[9] = "SSBD List Groups"
mPROMPT[10] = "GRPUSRLST_"
mAPI[10] = "SSBD List Group's Users"
mPROMPT[11] = "GRPUSRAD_"
mAPI[11] = "SSBD Add User To Group"
mPROMPT[12] = "GRPUSRDL_"
mAPI[12] = "SSBD Delete User From Group"
mPROMPT[13] = "SUPLST_"
mAPI[13] = "SSBD List Users w/Supervisor Security"
do mdisp
MENU TO mCHOICE
DO CASE
CASE mCHOICE = 0 .or. mCHOICE = 1
end_flag=.T.
CASE mCHOICE = 2
DO USRAD
CASE mCHOICE = 3
DO USRDL
CASE mCHOICE = 4
DO USRSLST
CASE mCHOICE = 5
DO USRGRPLST
CASE mCHOICE = 6
DO USRINGRP
CASE mCHOICE = 7
DO GRPAD
CASE mCHOICE = 8
DO GRPDL
CASE mCHOICE = 9
DO GRPSLST
CASE mCHOICE = 10
DO GRPUSRLST
CASE mCHOICE = 11
DO GRPUSRAD
CASE mCHOICE = 12
DO GRPUSRDL
CASE mCHOICE = 13
DO SUPLST
ENDCASE
LCHOICE=mCHOICE
RETURN
PROC USRAD //2
LOCAL mOBNM, mOBFNM, mPSWRD, RTN
rtn=0
do intro
mOBNM= "NEWUSER"+" "
@ xx, 0 say "Enter User's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
mOBFNM="NEWUSER FULL NAME GOES HERE"+" "
@ xx, 0 say "Enter User's Full Name: " get mOBFNM
read
mOBFNM = ltri(rtri(mOBFNM))
xx=xx+1
mPSWRD="SECRET"+" "
@ xx, 0 say "Enter User's Password: " get mPSWRD
read
mPSWRD = ltri(rtri(mPSWRD))
xx=xx+1
rtn = USRAD_(mOBNM, mOBFNM, mPSWRD)
do chkrtnum with rtn
return
PROC USRDL //3
LOCAL mOBNM, RTN
rtn=0
do intro
mOBNM= "NEWUSER"+" "
@ xx, 0 say "Enter User's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
rtn = USRDL_(mOBNM)
do chkrtnum with rtn
return
PROCEDURE USRSLST //4
LOCAL mUSRNM[0], mUSRSY[0],rtn
OK=.T.
rtn=0
do intro
xx=row()
mUSRJNM=space(46)
@ xx, 0 say "Please enter User Search String (wildcard OK): " get mUSRJNM
read
xx=xx+1
rtn = USRSLST_(mUSRJNM,@mUSRNM,@mUSRSY)
do chkrtnum3 with rtn
if .not. OK
return
endi
@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRNM)
if xx=5
@ xx, yy say "Cnt User Name Scty "
@ xx+1,yy say "=== ======================== ===="
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
@ xx, yy+29 say trans(mUSRSY[i],"XXXX")
xx=xx+1
if xx=23
xx=5
if yy=0
yy=yy+43
else
yy=0
@ 23,0
@ 23,0 say "Press any key to continue..."
inkey(0)
@ 5,0 clear to 23,79
endi
endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return
PROCEDURE USRGRPLST //5
LOCAL mUSRJNM, mUSRGRPNM[0]
OK=.T.
rtn=0
do intro
xx=row()
mUSRJNM=space(46)
@ xx, 0 say "Please enter User's Name (no wildcards): " get mUSRJNM
read
xx=xx+1
rtn = USRGRPLST_(mUSRJNM, @mUSRGRPNM)
do chkrtnum3 with rtn
if .not. OK
return
endi
@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRGRPNM)
if xx=5
@ xx, yy say "Cnt Group Name "
@ xx+1,yy say "=== ==============="
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mUSRGRPNM[i],"XXXXXXXXXXXXXX")
xx=xx+1
if xx=23
xx=5
if yy=0
yy=yy+43
else
yy=0
@ 23,0
@ 23,0 say "Press any key to continue..."
inkey(0)
@ 5,0 clear to 23,79
endi
endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return
PROC USRINGRP //6
LOCAL mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + " "
@ xx, 0 say "Enter User's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + " "
@ xx, 0 say "Enter Groups's Name: " get mGPNM
read
mGPNM = ltri(rtri(mGPNM))
xx=xx+1
rtn = USRINGRP_(mOBNM,mGPNM)
do chkrtnum4 with rtn
return
PROC GRPAD //7
LOCAL mOBNM, mOBFNM, mPSWRD, RTN
rtn=0
do intro
mOBNM= "NEWGROUP"+" "
@ xx, 0 say "Enter Group's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
mOBFNM="NEWGROUP FULL NAME GOES HERE"+" "
@ xx, 0 say "Enter Groups's Full Name: " get mOBFNM
read
mOBFNM = ltri(rtri(mOBFNM))
xx=xx+1
rtn = GRPAD_(mOBNM, mOBFNM)
do chkrtnum with rtn
return
PROC GRPDL //8
LOCAL mOBNM, RTN
rtn=0
do intro
mOBNM= "NEWGROUP"+" "
@ xx, 0 say "Enter Groups's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
rtn = GRPDL_(mOBNM)
do chkrtnum with rtn
return
PROCEDURE GRPSLST //9
LOCAL mGRPNM[0], mGRPSY[0]
OK=.T.
rtn=0
do intro
xx=row()
mGRPJNM=space(46)
@ xx, 0 say "Please enter Group Search String (wildcard OK): " get mGRPJNM
read
xx=xx+1
rtn = GRPSLST_(mGRPJNM,@mGRPNM,@mGRPSY)
do chkrtnum3 with rtn
if .not. OK
return
endi
@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mGRPNM)
if xx=5
@ xx, yy say "Cnt Group Name Scty "
@ xx+1,yy say "=== ======================== ===="
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mGRPNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
@ xx, yy+29 say trans(mGRPSY[i],"XXXX")
xx=xx+1
if xx=23
xx=5
if yy=0
yy=yy+43
else
yy=0
@ 23,0
@ 23,0 say "Press any key to continue..."
inkey(0)
@ 5,0 clear to 23,79
endi
endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return
PROCEDURE GRPUSRLST //10
LOCAL mGRPNM, mGRPUSRNM[0]
OK=.T.
rtn=0
do intro
xx=row()
mGRPNM=space(46)
@ xx, 0 say "Please enter Groups's Name (no wildcards): " get mGRPNM
read
xx=xx+1
rtn = GRPUSRLST_(mGRPNM, @mGRPUSRNM)
do chkrtnum3 with rtn
if .not. OK
return
endi
@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mGRPUSRNM)
if xx=5
@ xx, yy say "Cnt User Name"
@ xx+1,yy say "=== ==============="
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mGRPUSRNM[i],"XXXXXXXXXXXXXX")
xx=xx+1
if xx=23
xx=5
if yy=0
yy=yy+43
else
yy=0
@ 23,0
@ 23,0 say "Press any key to continue..."
inkey(0)
@ 5,0 clear to 23,79
endi
endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return
PROC GRPUSRAD //11
LOCAL mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + " "
@ xx, 0 say "Enter User's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + " "
@ xx, 0 say "Enter Groups's Name: " get mGPNM
read
mGPNM = ltri(rtri(mGPNM))
xx=xx+1
rtn = GRPUSRAD_(mOBNM, mGPNM)
do chkrtnum with rtn
return
PROC GRPUSRDL //12
LOCAL mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + " "
@ xx, 0 say "Enter User's Name: " get mOBNM
read
mOBNM = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + " "
@ xx, 0 say "Enter Groups's Name: " get mGPNM
read
mGPNM = ltri(rtri(mGPNM))
xx=xx+1
rtn = GRPUSRDL_(mOBNM, mGPNM)
do chkrtnum with rtn
return
PROCEDURE SUPLST //13
LOCAL mOBTYP, mUSRJNM, mUSRNM[0], mOBTP[0], rtn
OK=.T.
rtn=0
do intro
xx=row()
mOBTYP = 0
@ xx, 0 say "Please enter Object type: " get mOBTYP
read
xx=xx+1
mUSRJNM=space(46)
@ xx, 0 say "Please enter Object Search String (wildcard OK): " get mUSRJNM
read
xx=xx+1
rtn = SUPLST_(mOBTYP,mUSRJNM,@mUSRNM,@mOBTP)
*? rtn
*wait
do chkrtnum3 with rtn
if .not. OK
return
endi
@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRNM)
if xx=5
@ xx, yy say "Cnt User Name Type"
@ xx+1,yy say "=== ======================== ===="
xx=xx+2
endi
@ xx, yy say trans(i,"###")
@ xx, yy+4 say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
@ xx, yy+30 say trans(mOBTP[i],"###")
xx=xx+1
if xx=23
xx=5
if yy=0
yy=yy+43
else
yy=0
@ 23,0
@ 23,0 say "Press any key to continue..."
inkey(0)
@ 5,0 clear to 23,79
endi
endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return